home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Source Code
/
Visual Basic Source Code.iso
/
vbsource
/
hangman
/
helppage.frm
< prev
next >
Wrap
Text File
|
1999-08-28
|
3KB
|
90 lines
VERSION 5.00
Begin VB.Form HelpPage
ClientHeight = 4095
ClientLeft = 3915
ClientTop = 2985
ClientWidth = 3495
ControlBox = 0 'False
LinkTopic = "Form1"
Picture = "HelpPage.frx":0000
ScaleHeight = 4095
ScaleWidth = 3495
StartUpPosition = 2 'CenterScreen
Begin VB.CommandButton Command1
Caption = "&OK"
Height = 390
Left = 2040
TabIndex = 5
Top = 3600
Width = 1215
End
Begin VB.Label Label5
BackStyle = 0 'Transparent
Caption = "You have 11 chances before the poor person is excecuted on the scaffold, GOOD LUCK."
ForeColor = &H8000000E&
Height = 720
Left = 120
TabIndex = 4
Top = 2760
Width = 3015
End
Begin VB.Label Label4
BackStyle = 0 'Transparent
Caption = "If your guess is incorrect a piece of the scaffold or a bodypart will appear in the execution panel"
ForeColor = &H8000000E&
Height = 615
Left = 120
TabIndex = 3
Top = 2040
Width = 2775
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "The selected letter will dissappear from the selection panel, meaning it can only be selected once."
ForeColor = &H8000000E&
Height = 675
Left = 120
TabIndex = 2
Top = 1320
Width = 3075
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "Left click while the mouse pointer is over a letter to select that letter as your choice."
ForeColor = &H8000000E&
Height = 450
Left = 105
TabIndex = 1
Top = 840
Width = 3150
End
Begin VB.Label Label1
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Hangman Instructions Page"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000E&
Height = 615
Left = 120
TabIndex = 0
Top = 120
Width = 3255
End
End
Attribute VB_Name = "HelpPage"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Unload Me
End Sub